home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_ghostscript.idb / usr / freeware / lib / ghostscript / 3.33 / impath.ps.z / impath.ps
Encoding:
Text File  |  1998-05-21  |  5.2 KB  |  175 lines
  1. %    Copyright (C) 1992 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility to
  7. % anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU Ghostscript General Public License for full details.
  10. % 
  11.  
  12. % impath.ps
  13. % Reverse-rasterize a bitmap to produce a Type 1 outline.
  14. % (This was formerly a Ghostscript operator implemented in C.)
  15.  
  16. %    <image> <width> <height> <wx> <wy> <ox> <oy> <string>
  17. %      type1imagepath <substring>
  18. %        Converts an image (bitmap) description of a character into
  19. %          a scalable description in Adobe Type 1 format.  The
  20. %          current transformation matrix should be the same as the
  21. %          FontMatrix of the font in which this character will be
  22. %          used: this establishes the scaling relationship between
  23. %          image pixels (the image is assumed to be 1 unit high in
  24. %          user space) and the character coordinate system used in
  25. %          the scalable description.  wx and wy are the character
  26. %          width, and ox and oy are the character origin relative
  27. %          to the lower left corner of the bitmap, in *pixels*.
  28. %        The image is assumed to be stored in left-to-right,
  29. %          top-to-bottom order.  Note that this is not consistent
  30. %          with the `image' operator's interpretation of the CTM.
  31. %        All coordinates in the scalable description are rounded to
  32. %          integers, so the coefficients in the FontMatrix should
  33. %          be on the order of 1/N for some value of N that is
  34. %          either a multiple of the height/width or is large
  35. %          compared to the width and height.  (There is a
  36. %          convention, which some PostScript programs rely on, that
  37. %          N=1000.)
  38. %        Note that the encoded description has *not* been subjected
  39. %          to CharString encryption, which is necessary before the
  40. %          description can be given to type1addpath: to do this,
  41. %          follow the type1imagepath with
  42. %            4330 exch dup .type1encrypt exch pop
  43. %        If the description is too complex to fit into the supplied
  44. %          string, a limitcheck error results.  A good rule of
  45. %          thumb is that the size of the string should be about 6
  46. %          times the number of 1-bits in the image that are not
  47. %          completely surrounded by other 1-bits.
  48.  
  49. % Import the Type 1 opcodes.
  50. (type1ops.ps) run
  51.  
  52. 100 dict
  53. dup /type1imagepath_dict exch def
  54. begin
  55.  
  56. /rc { round cvi } bind def
  57. /moving [/rmoveto /hmoveto /vmoveto] def
  58. /drawing [/rlineto /hlineto /vlineto] def
  59.  
  60. % Convert the current path to a Type 1 token array.
  61. /putxy            % x y ops -> cs_elements
  62.  { 3 -1 roll dup x sub rc exch /x exch def
  63.    3 -1 roll dup y sub rc exch /y exch def
  64.    % stack: ops dx dy
  65.    dup 0 eq
  66.     { % dy = 0, use hmoveto/lineto
  67.       pop exch 1 get
  68.     }
  69.     { 1 index 0 eq
  70.        { % dx = 0, use vmoveto/lineto
  71.          exch pop exch 2 get
  72.        }
  73.        { % use rmoveto/rlineto
  74.          3 -1 roll 0 get
  75.        }
  76.       ifelse
  77.     }
  78.    ifelse
  79.  } bind def
  80. /pathtotype1        % -> charstack
  81.  { 3 dict begin /x 0 def /y 0 def
  82.    mark
  83.    { moving putxy
  84.    }
  85.    { drawing putxy
  86.    }
  87.    { % Convert curve to relative form
  88.      x y 3
  89.       { exch neg 7 index add rc
  90.     exch neg 6 index add rc
  91.     8 -2 roll
  92.       }
  93.      repeat /y exch def /x exch def
  94.      1 index 0 eq 5 index 0 eq and    % dy1=dx3=0, hv
  95.       { 5 -1 roll pop exch pop /hvcurveto
  96.       }
  97.       { dup 0 eq 6 index 0 eq and    % dx1=dy3=0, vh
  98.          { 6 -1 roll pop pop /vhcurveto
  99.      }
  100.      { /rrcurveto            % none of the above
  101.      }
  102.     ifelse
  103.       }
  104.      ifelse
  105.    }
  106.    { /closepath
  107.    }
  108.    pathforall end
  109.  } bind def
  110.  
  111. end    % type1imagepath_dict
  112.  
  113. % The main program
  114. /type1imagepath        % image width height wx wy ox oy string ->
  115.             % substring
  116.  { type1imagepath_dict begin
  117.    /tsave save def
  118.    /ostring exch def
  119.    /oy exch def   /ox exch def
  120.    /wy exch def   /wx exch def
  121.    /height exch def   /width exch def
  122.    /data exch def
  123.  
  124.    /ofilter ostring /NullEncode filter def
  125.    /raster width 7 add 8 idiv def
  126.  
  127. % Construct the coordinate transformation.
  128.    height dup scale
  129.      matrix currentmatrix matrix invertmatrix setmatrix
  130.  
  131. % Determine the left side bearing.
  132.    /lsbx width
  133.    0 1 width 1 sub
  134.     { dup dup 8 idiv 0 exch
  135.       raster raster height mul 1 sub
  136.        { data exch get or }
  137.       for exch 8 mod bitshift 128 and 0 ne
  138.        { exch pop exit }
  139.       if pop
  140.     }
  141.    for def
  142.  
  143. % Compute and encode the origin, width, and side bearing.
  144.    mark
  145.    ox oy dtransform
  146.      rc /opty exch def   rc /optx exch def
  147.    wx wy dtransform
  148.      rc /iwy exch def    rc /iwx exch def
  149.    lsbx ox sub 0 dtransform
  150.      rc /ilsby exch def   rc /ilsbx exch def
  151.    ilsbx
  152.    iwy 0 ne ilsby 0 ne or
  153.     { ilsby iwx iwy /sbw }
  154.     { iwx /hsbw }
  155.    ifelse
  156.    ofilter charstack_write
  157.  
  158. % Flip over the Y axis, because the image is stored top-to-bottom.
  159.    [1 0 0 -1 0 height] concat
  160. % Account for the character origin.
  161.    lsbx oy translate
  162. % Trace the outline.
  163.    newpath
  164.    width height data .imagepath
  165.    gsave matrix setmatrix pathtotype1 grestore
  166.    ofilter charstack_write
  167. % Terminate the output
  168.    mark /endchar ofilter charstack_write
  169.  
  170.    ofilter fileposition ofilter closefile    % flush buffers
  171.    ostring 0 3 -1 roll getinterval
  172.    tsave restore
  173.    end
  174.  } bind def
  175.